5 POKE53280,15:POKE53281,15
10 REM IQ-TEST
20 REM FRAGEN 01-13
30 GOSUB1550:PRINT""TAB(10)"INTELLIGENZTEST":PRINTTAB(10)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
40 PRINT"DER COMPUTER STELLT IHNEN 20"
50 PRINT"FRAGEN, DIE SIE MOEGLICHST GENAU"
60 PRINT"BEANTWORTEN MUESSEN. SOBALD SIE"
70 PRINT"BEGINNEN, WIRD DIE BENOTIGTE ZEITGEMESSEN."
80 PRINT"GELEGENTLICH WARTET DER COMPUTER,"
90 PRINT"BIS SIE EINEN TEXT GELESEN HABENDRUECKEN SIE IN DIESEM FALL
100 [153]"IRGENDEINE TASTE.":[153]"ZUM BEISPIEL JETZT.":[141]1530
110 [153]"":[129]I[178]1[164]16:[153]"                                  ":[130]:[153]""
120 [153]"DER COMPUTER SCHLAEGT VERSCHIE-":[153]"DENE ANTWORTEN VOR."
121 [153]"SIE BRAUCHEN DANN NUR NOCH DIE"
130 [153]"RICHTIGE AUSZUSUCHEN.":[153]"GEBEN SIE IN JEDEM FALL IHRE"
140 [153]"LOESUNG":[153]"(BUCHSTABE, ZAHL ODER WORT)"
150 [153]"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$":[153]"BEI DEM BLINKZEICHEN EIN."
160 [153]"SIE KOENNEN JETZT DIE ZEIT STARTEN":[153]"UND BEGINNEN."
170 [153]"V I E L   E R F O L G !":[141]1530:TI$[178]"000000"
180 [153]"LOADFRAGE 1:":[153]"WELCHES DER UNTEREN KAESTCHEN EIGNET"
190 [153]"SICH AM BESTEN ZUR VERVOLLSTAENDIGUNG"
200 [153]"DER OBEREN REIHE?":[153]"(TASTE DRUECKEN!)":[141]1530
210 [153]"ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^"
220 [153]"(null)(null)=RIGHT$(null)=RIGHT$(null) (null)(null)=RIGHT$(null)=RIGHT$(null) (null)(null) /(null) /(null) (null)      (null)"
230 [153]"(null)-(null)<-(null)<(null) (null)(null)(null)(null)(null)(null)(null)(null)CLOSE(null) (null)  (null) (null) (null)      (null)"
240 [153]"(null)MID$>(null)MID$>(null)(null)CLOSE(null)MID$>(null)MID$>(null)(null)CLOSE(null)/ (null)/ (null)(null) (null)      (null)"
250 [153]"(null)(null)=RIGHT$(null)=RIGHT$(null)CLOSE(null)(null)=RIGHT$(null)=RIGHT$(null) (null)(null) /(null) /(null) (null)      (null)"
260 [153]"(null)-(null)<-(null)<(null) (null)(null)(null)(null)(null)(null)(null)(null) (null) (null)  (null) (null) (null)      (null)"
270 [153]"(null)MID$>(null)MID$>(null)(null) (null)MID$>(null)MID$>(null)(null) (null)/ (null)/ (null)(null) (null)      (null)"
280 [153]"/TANTANTANTANTANTANEXPCLOSE/TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP"
290 [153]"ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^CLOSEORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^"
300 [153]"(null)(null) /(null) /(null) (null)(null)TANRIGHT$(null)TANRIGHT$(null)CLOSE(null)(null) /(null) /(null) (null)(null)=RIGHT$(null)=RIGHT$(null)"
310 [153]"(null) TAN  TAN (null) (null)(null) (null)(null) (null)(null) (null) (null)  (null) (null) (null)-(null)<-(null)<(null)"
320 [153]"(null)/ (null)/ (null)(null) (null)MID$TAN(null)MID$TAN(null)(null) (null)/ (null)/ (null)(null) (null)MID$>(null)MID$>(null)(null)"
330 [153]"(null)(null) /(null) /(null) (null)(null)TANRIGHT$(null)TANRIGHT$(null) (null)(null) /(null) /(null) (null)(null)=RIGHT$(null)=RIGHT$(null)"
340 [153]"(null) TAN  TAN (null) (null)(null) (null)(null) (null)(null) (null) (null)  (null) (null) (null)-(null)<-(null)<(null)"
350 [153]"(null)/ (null)/ (null)(null) (null)MID$TAN(null)MID$TAN(null)(null) (null)/ (null)/ (null)(null) (null)MID$>(null)MID$>(null)(null)"
360 [153]"/TANTANTANTANTANTANEXPCLOSE/TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP"
370 [153]"  >A<       >B<      >C<      >D<":[133]A1$
380 [153]"LOADFRAGE 2:":[153]"ICH BIN EIN MANN."
390 [153]"WENN PETERS SOHN MEINES SOHNES VATER"
400 [153]"IST, WAS BIN ICH DANN FUER PETER?"
410 [153]">A<  SEIN GROSSVATER":[153]">B<  SEIN VATER
420 PRINT">C<  SEIN SOHN":PRINT">D<  SEIN ENKEL":PRINT">E<  ICH BIN PETER
430 [153]">F<  SEIN ONKEL":[133]A2$
440 [153]"LOADFRAGE 3:":[153]"WELCHES WORT PASST NICHT IN DIE"
450 [153]"FOLGENDE GRUPPE?":[153]">A<  MESSER":[153]">B<  SCHWAN"
460 [153]">C<  GELAECHTER":[153]">D<  FELDER":[153]">E<  HUEBSCH
470 PRINT">F<  GEDANKE":INPUTA3$
480 PRINT"[147]FRAGE 4:":PRINT"WELCHE BEIDEN DER FIGUREN UNTEN SIND"
490 PRINT"SPIEGELBILDER VONEINANDER?"
500 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
510 PRINT"[221]  [206][205]     [206][205]   [205][205]  [206][206]  [223][146]       [169][146]  [221]"
520 PRINT"[221] [206][206][205][205]   [206][206][205][205]   [205][205][206][206]   [165][204][164]   [164][186][170]  [221]"
530 PRINT"[221][169][146][206]  [205][205] [169][146][206]  [205][223][146]   [205][206]    [204][164][186]   [204][164][186]  [221]"
540 PRINT"[221]                                 [221]"
550 PRINT"[221] >A<    >B<    >C<    >D<   >E<  [221]"
560 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
570 PRINT"(EINGABE: BUCHST.-RETURN[146]-BUCHST.)":INPUTA4$:INPUT"[145]UND";B4$
580 PRINT"[147]FRAGE 5:":PRINT"WELCHE ZAHL KOMMT IN DIESER REIHE"
590 PRINT"ALS NAECHSTE?":PRINTTAB(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
600 PRINTTAB(10)"[221] 9, 16, 25, 36, ...[221]"
610 PRINTTAB(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":INPUTA5
620 PRINT"[147]FRAGE 6:":PRINT"ERGAENZEN SIE DEN FOLGENDEN ANALOGIE-"
630 PRINT"SCHLUSS MIT EINEM AUS VIER BUCHSTABEN"
640 PRINT"BESTEHENDEN WORT, DAS MIT 'E' ENDET."
650 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
660 PRINT"OBEN VERHAELT SICH ZU UNTEN             WIE HIMMEL ZU ...E."
670 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
680 PRINT"SCHREIBEN SIE HIER DAS WORT!":INPUTA6$
690 PRINT"[147]FRAGE 7:":PRINT"IN DEM KAESTCHEN UNTEN ERGIBT SICH NACH"
700 PRINT"ANALOGEN RECHENOPERATIONEN WAAGERECHT"
710 PRINT"UND SENKRECHT AUS ZWEI ZAHLEN EINER"
720 PRINT"REIHE DIE DRITTE. WELCHE ZAHL FEHLT?"
730 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
740 PRINT"[221]             [221]
750 [153]"(null) 6    2    4 (null)
760 PRINT"[221]             [221]
770 [153]"(null) 2    ?    0 (null)
780 PRINT"[221]             [221]
790 [153]"(null) 4    0    4 (null)
800 PRINT"[221]             [221]
810 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[133]A7
820 [153]"LOADFRAGE 8:":[153]"ERGAENZEN SIE DEN FOLGENDEN ANALOGIE-"
830 [153]"SCHLUSS MIT EINEM AUS FUENF BUCHSTABEN"
840 [153]"BESTEHENDEN WORT, DAS MIT 'T' ENDET."
850 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
860 [153]"MOEGLICH VERHAELT SICH ZU WIRKLICH      WIE KUENFTIG ZU ....T."
870 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
880 [153]"SCHREIBEN SIE HIER WIEDER DAS WORT!":[133]A8$
890 [153]"LOADFRAGE 9:":[153]"NENNEN SIE DIE BEIDEN WOERTER AUS DER"
900 [153]"FOLGENDEN GRUPPE, DIE NACH IHRER BEDEU- TUNG NICHT HINEINPASSEN."
910 [153]">A<  LEIM"
920 [153]">B<  SIEB
930 PRINT">C<  KREISSAEGE
940 [153]">D<  NAGEL
950 PRINT">E<  BINDFADEN
960 [153]">F<  BUEROKLAMMER":[133]A9$:[133]"ONUND";B9$
970 [153]"LOADFRAGE 10:"
980 [153]"BERG VERHAELT SICH ZU LAND":[153]"WIE STRUDEL ZU:
990 PRINT">A< WALD     >D< HIMMEL":PRINT">B< NASS     >E< REGENSCHAUER
1000 [153]">C< MEER":[133]C1$
1010 [153]"FRAGE 11:"
1020 [153]"NENNEN SIE DIE ZAHL, DIE DIESE REIHE    FOLGERICHTIG ERGAENZT:"
1030 [153][163]10)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1040 [153][163]10)"(null) 2, 3, 5, 9, 17, ... (null)"
1050 [153][163]10)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[133]D1
1060 [153]"LOADFRAGE 12:"
1070 [153]"ZWEI DER FIGUREN SIND SPIEGELBILDER     VONEINANDER.- WELCHE?"
1080 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
1090 [153]"(null)    STEPWAIT      WAIT      STEPWAIT    WAIT    (null)"
1100 [153]"(null)   STEP WAIT    STEP LOGWAIT    STEP WAIT  COS (null)WAIT   (null)"
1110 [153]"(null)  STEP  WAIT   FRE   WAIT   STEP  WAIT     FREWAIT  (null)"
1120 [153]"(null) STEP   WAIT  STEP    WAIT  STEP   WAIT      (null)WAIT (null)"
1130 [153]"(null)  >A<   >B<   >C<   >D<   (null)"
1140 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[133]D2$:[133]"ONUND";C2$
1150 [153]"LOADFRAGE 13:"
1160 [153]"DIE STATISTIK ZEIGT, DASS AUTOFAHRER"
1170 [153]"MAENNLICHEN GESCHLECHTS HAEUFIGER IN"
1180 [153]"VERKEHRSUNFAELLE VERWICKELT SIND ALS    FRAUEN."
1190 [153]"DARAUS KANN MAN MIT SICHERHEIT NUR      SCHLIESSEN...
1200 PRINT">A< ...DASS DIE MAENLICHEN VORURTEILE"
1210 PRINT"       UEBER DIE FAEHIGKEITEN DER"
1220 PRINT"       FRAUEN UNZUTREFFEND SIND."
1230 PRINT">B< ...DASS DIE MAENNER BESSERE"
1240 PRINT"       AUTOFAHRER SIND, ABER HAEUFIGER         FAHREN.
1250 [153]">C< ...DASS MAENNER UND FRAUEN GLEICH-"
1260 [153]"       GUT FAHREN, MAENNER ABER EINE"
1270 [153]"       HOEHERE KILOMETERLEISTUNG HABEN."
1280 [153]">D< ...DASS DIE MEISTEN LKW-FAHRER             MAENNER SIND."
1290 [153]">E< ...DASS MAN GENAUERE ANGABEN"
1300 [153]"       FUER EINE KLARE SCHLUSSFOLGERUNG        BENOETIGT.":
1310 [133]D3$:J$[178]TI$:[141]1550
1320 [153][163]11)"P A U S E"
1330 [153]"DIE ZEIT IST ANGEHALTEN!
1340 PRINT"SIE KOENNEN SICH ALSO EINEN"
1350 PRINT"MOMENT AUSRUHEN."
1360 FORA=1TO6000:NEXT
1370 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
1375 GETA$:IFA$=""THEN1375
1380 POKE826,0:IFA1$="C"THENN=N+1:POKE826,1
1390 POKE827,0:IFA2$="C"THENN=N+1:POKE827,1
1400 POKE828,0:IFA3$="E"THENN=N+1:POKE828,1
1410 POKE829,0:IFA4$="D"ANDB4$="E"THENN=N+1:POKE829,1
1420 POKE830,0:IFA5=49THENN=N+1:POKE830,1
1430 POKE831,0:IFA6$="ERDE"THENN=N+1:POKE831,1
1440 POKE832,0:IFA7=2THENN=N+1:POKE832,1
1450 POKE833,0:IFA8$="JETZT"THENN=N+1:POKE833,1
1460 POKE834,0:IFA9$="B"ANDB9$="C"THENN=N+1:POKE834,1
1470 POKE835,0:IFC1$="C"THENN=N+1:POKE835,1
1480 POKE836,0:IFD1=33THENN=N+1:POKE836,1
1490 POKE837,0:IFD2$="B"ANDC2$="D"THENN=N+1:POKE837,1
1500 POKE838,0:IFD3$="E"THENN=N+1:POKE838,1
1510 J=VAL(J$):POKE839,N:POKE840,INT(J/100)
1520 GOTO1580
1530 GETA$:IFA$=""THEN1530
1540 RETURN
1550 PRINT"[147]":FORI=1TO39:PRINT"#";:NEXT:FORI=1TO22:PRINT"[157]#";:NEXT
1560 FORI=1TO38:PRINT"[157]#[157]";:NEXT:PRINT"#"
1570 FORI=1TO23:PRINT"[145]#[157]";:NEXT:RETURN
1580 REM REM FRAGEN 14-20
1590 J=PEEK(840)
1600 N=PEEK(839)
1620 PRINT"[147]"
1630 FORI=1TO23:PRINT"                                       ":NEXT
1640 PRINT""
1650 PRINT""
1660 PRINTTAB(16)"    "
1670 PRINTTAB(14)"        "
1680 PRINTTAB(12)"            "
1690 PRINTTAB(11)"     SIND     "
1700 PRINTTAB(10)"    SIE FUER    "
1710 PRINTTAB(10)"   DIE FRAGEN   "
1720 PRINTTAB(10)"    14-20 BE-   "
1730 PRINTTAB(11)"     REIT     "
1740 PRINTTAB(12)"      ?     "
1750 PRINTTAB(14)"        "
1760 PRINTTAB(16)"    "
1780 PRINT""
1790 PRINT"  DANN DRUECKEN SIE WIEDER EINE TASTE"
1800 GOSUB3510
1810 PRINT"[147]FRAGE 14:":PRINT
1820 TI$="000000"
1830 PRINT"IN DEM KAESTCHEN UNTEN ERGIBT SICH NACH"
1840 PRINT"ANALOGEN RECHENOPERATIONEN WAAGERECHT"
1850 PRINT"UND SENKRECHT IMMER AUS ZWEI ZAHLEN"
1860 PRINT"EINER REIHE DIE DRITTE."
1870 PRINT"WELCHE ZAHL FEHLT?"
1880 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1890 PRINT"[221] 6   2   12 [221]"
1900 PRINT"[221]            [221]"
1910 PRINT"[221] 4   5   20 [221]"
1920 PRINT"[221]            [221]"
1930 PRINT"[221]24  10   [146]?  [221]"
1940 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1950 PRINT:PRINT:INPUTD4
1960 PRINT"[147]FRAGE 15:":PRINT
1970 PRINT"ES GILT FOLGENDES:
1980 [153][163]10)"A MAL B = 24
1990 PRINTTAB(10)"C MAL D = 32
2000 [153][163]10)"B MAL D = 48
2010 PRINTTAB(10)"B MAL C = 24
2020 [153]"WIEVIEL IST DANN":[153]
2030 [153][163]10)"A MAL B MAL C MAL D?"
2040 [153][163]10)"FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE"
2050 [153]:[153]">A<  480
2060 PRINT">B<  576
2070 [153]">C<  744
2080 PRINT">D<  768
2090 [153]">E<  824
2100 PRINT:PRINT:INPUTD5$
2110 PRINT"[147]FRAGE 16:":PRINT
2120 PRINT"WELCHE DER VIER UNTEREN KOMBINATIONEN
2130 [153]"IST DIE BESTE ERGAENZUNG DER OBEREN     REIHE?
2140 GOSUB3510
2150 PRINT"[147]"
2160 PRINT"[176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174]
2170 [153]"(null)      (null) (null)  STEP(null)WAIT  (null) (null)      (null) (null)  STEP(null)WAIT  (null)
2180 PRINT"[221]      [221] [221] [169]  [223][146] [221] [221] [213][192][192][201] [221] [221] [169]  [223][146] [221]
2190 [153]"(null)  (null)RIGHT$  (null) (null)      (null) (null) (null)  (null) (null) (null)      (null)
2200 PRINT"[221]  [202][203]  [221] [221]  [213][201]  [221] [221] [202][192][192][203] [221] [221] [213][192][192][201] [221]
2210 [153]"(null)      (null) (null)  MID$(null)  (null) (null)      (null) (null) (null)  (null) (null)
2220 PRINT"[221]  [169][223][146]  [221] [221]      [221] [221]  [169][223][146]  [221] [221] [202][192][192][203] [221]
2230 [153]"(null) STEP  (null)WAIT (null) (null)      (null)(null) STEP  (null)WAIT (null) (null)      (null)
2240 PRINT"[173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] ....
2250 [153]"ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^
2260 PRINT"[221]  [169][223][146]  [221] [221] [213][192][192][201] [221] [221]  [169][223][146]  [221] [221][213][192][192][192][192][201][221]
2270 [153]"(null) STEP  (null)WAIT (null) (null) (null)  (null) (null) (null) STEP  (null)WAIT (null) (null)(null)    (null)(null)
2280 PRINT"[221]      [221] [221] [202][192][192][203] [221] [221][213][192][192][192][192][201][221] [221][221]    [221][221]
2290 [153]"(null)      (null) (null)      (null) (null)(null)    (null)(null) (null)(null)    (null)(null)
2300 PRINT"[221] [213][192][192][201] [221] [221]      [221] [221][221]    [221][221] [221][202][192][192][192][192][203][221]
2310 [153]"(null) (null)  (null) (null) (null)  STEP(null)WAIT  (null) (null)(null)    (null)(null) (null)  STEP(null)WAIT  (null)
2320 PRINT"[221] [202][192][192][203] [221] [221] [169]  [223][146] [221] [221][202][192][192][192][192][203][221] [221] [169]  [223][146] [221]
2330 [153]"/TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP
2340 PRINT:PRINT"  >A<      >B<      >C<      >D<"
2350 GETA$:PRINT:INPUTD6$
2360 PRINT"[147]FRAGE 17:":PRINT
2370 PRINT"WELCHES WORT PASST NICHT IN DIESE       GRUPPE?"
2380 PRINT:PRINT:PRINT">A<  MIKROSKOP
2390 [153]">B<  LUPE
2400 PRINT">C<  MIKROPHON
2410 [153]">D<  FERNROHR
2420 PRINT">E<  TELEGRAPH
2430 [153]:[153]:[133]D7$
2440 [153]"LOADFRAGE 18:"
2450 [153]:[153]"NENNEN SIE DIE BEIDEN WOERTER, DIE"
2460 [153]"SICH IN IHRER BEDEUTUNG AEHNLICH SIND.":[153]:[153]
2470 [153]">A<  SCHIMMER
2480 PRINT">B<  BROCKEN
2490 [153]">C<  GEKICHER
2500 PRINT">D<  GLANZ
2510 [153]">E<  SAMMLUNG
2520 PRINT:PRINT:INPUTD8$
2530 INPUT"[145]UND";C8$
2540 PRINT"[147]FRAGE 19:":PRINT
2550 PRINT"WENN FRITZ AN DER KREUZUNG NACH RECHTS"
2560 PRINT"ODER LINKS ABBIEGT, WIRD IHM VOR ER-"
2570 PRINT"REICHEN EINER TANKSTELLE DAS BENZIN"
2580 PRINT"AUSGEHEN.
2590 [153]"AUCH WENN ER UMDREHT, ERREICHT ER MIT
2600 PRINT"SEINEM TREIBSTOFFVORRAT KEINE TANKSTEL-
2610 [153]"LE MEHR; NOCH KANN ER GERADEAUS EINE    SEHEN.":[153]
2620 [153]"NUR EINE DER FOLGENDEN BEHAUPTUNGEN
2630 PRINT"LAESST SICH AUS DIESER SACHLAGE EINWAND-FREI ABLEITEN:"
2640 GOSUB3510
2650 PRINT"[147]>A<  KANN SEIN, DASS IHM DAS BENZIN          AUSGEHT.":PRINT
2660 PRINT">B<  IHM GEHT BESTIMMT DAS BENZIN AUS.":PRINT
2670 PRINT">C<  ER HAETTE EINEN ANDEREN WEG WAEH-       LEN SOLLEN.":PRINT
2680 PRINT">D<  ER HAT SICH VERFAHREN.":PRINT
2690 PRINT">E<  ER MUSS RECHTS ABBIEGEN.":PRINT
2700 PRINT">F<  ER MUSS LINKS ABBIEGEN.
2710 [153]:[153]:[133]D9$
2720 [153]"LOADFRAGE 20:":[153]
2730 [153]"ERGAENZEN SIE DEN FOLGENDEN"
2740 [153]"ANALOGIESCHLUSS:":[153]:[153]
2750 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
2760 PRINT"[221][213][192][192][192][201] [213][192][192][192][201] [213][192][192][192][201]          [176][174] [169][223][146]     [221]
2770 [153]"(null)(null)(null) (null)(null) (null)(null) (null)(null) (null)(null) (null)(null) VERHAELT (null)(null) (null)(null) STEPWAITASCASC(null)WAIT(null)"
2780 [153]"(null)(null) (null) (null) (null) (null) (null) (null) (null) (null)   SICH   (null)(null) (null)(null) (null)STR$STR$STEP(null)
2790 PRINT"[221][221][202][192][203][221] [221][213][192][201][221] [221] [192] [221]    ZU    [223][169] [173][189]     [221]"
2800 PRINT"[221][202][192][192][192][203] [202][192][192][192][203] [202][192][192][192][203]"TAB(38)"[221]"
2810 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
2820 [153]:[153]"WIE + - 0 ZU:
2830 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184]
2840 [153]">A<"[163]10)"+ - 0
2850 PRINT">B<"TAB(10)"0 + -
2860 [153]">C<"[163]10)"- + 0
2870 PRINT">D<"TAB(10)"0 - +
2880 [153]">E<"[163]10)"+ + 0
2890 PRINT:INPUTE1$
2900 K$=TI$
2910 K=VAL(K$)
2920 T=INT(K/100)+J
2930 POKE841,0:IFD4=240THENN=N+1:POKE841,1
2940 POKE842,0:IFD5$="D"THENN=N+1:POKE842,1
2950 POKE843,0:IFD6$="D"THENN=N+1:POKE843,1
2960 POKE844,0:IFD7$="E"THENN=N+1:POKE844,1
2970 POKE845,0:IFD8$="A"ANDC8$="D"THENN=N+1:POKE845,1
2980 POKE846,0:IFD9$="A"THENN=N+1:POKE846,1
2990 POKE847,0:IFE1$="C"THENN=N+1:POKE847,1
3000 POKE839,N:POKE840,T
3010 PRINT"[147]"
3020 PRINT"   [166][166][166][166]   [166][166][166][166]     [166]    [166]   [166]   [166][166][166]
3030 [153]"   SPC(   SPC(  SPC(   SPC(   SPC( SPC(   SPC(   SPC(  SPC(   SPC(
3040 PRINT"   [166]   [166]  [166]   [166]  [166]   [166]  [166]   [166]  [166]   [166]
3050 [153]"   SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(SPC(  SPC(   SPC(  SPC(   SPC(
3060 PRINT"   [166]   [166]  [166] [166]    [166]   [166]  [166]   [166]  [166]   [166]
3070 [153]"   SPC(   SPC(  SPC(  SPC(   SPC(   SPC(   SPC( SPC(   SPC(   SPC(
3080 PRINT"   [166][166][166][166]   [166]   [166]  [166]   [166]    [166]     [166][166][166]
3090 [153]"   SIE ABSOLVIERTEN DEN TEST IN "T"
3100 PRINT"   MINUTEN UND LOESTEN DABEI "N
3110 PRINT"   FRAGEN RICHTIG."
3120 PRINT"         (AUSWERTUNG FOLGT!)
3130 [153]"":[129]I[178]1[164]39:[153]"(null)";:[130]:[129]I[178]1[164]22:[153]"CMD(null)";:[130]
3140 [129]I[178]1[164]39:[153]"CMD(null)CMD";:[130]:[129]I[178]1[164]22:[153]"ON(null)CMD";:[130]
3150 Y[178]TI:[129]I[178]1[164]500:X[178](TI[171]Y[173]60):[130]
3160 [139]T[179][178]15[167]P[178]N[170]5
3170 [139]T[177]15[175]T[179][178]20[167]P[178]N[170]3
3180 [139]T[177]20[175]T[179][178]25[167]P[178]N[170]2
3190 [139]T[177]25[167]P[178]N
3200 [153]"LOADVON 25 MAXIMAL ERREICHBAREN BEWERTUNGS- PUNKTEN ERHALTEN SIE"
3210 [153]" - UNTER BERUECKSICHTIGUNG DER BENOE-   TIGTEN ZEIT -
3220 PRINTTAB(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
3230 [153][163]10)"(null) "P" PUNKTE"[163]24)"(null)
3240 PRINTTAB(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189].
3250 [153]""
3260 [139]P[177][178]20[167]3440
3270 [139]P[177][178]15[175]P[179]20[167]3390
3280 [139]P[177][178]10[175]P[179]15[167]3340
3290 [153]"SICHERLICH HABEN SIE GERADE EINEN       SCHLECHTEN TAG ERWISCHT,
3300 PRINT"DENN DIES IST KEIN RUEHMLICHES ERGEBNIS.
3310 [153]"ABER TROESTEN SIE SICH. EINIGE DER ER-
3320 PRINT"FOLGREICHSTEN UND BERUEHMTESTEN LEUTE   SIND AUCH NICHT BESSER."
3330 GETA$:GOTO3530
3340 PRINT"SIE HABEN KEINEN GRUND, SICH ZU GE-     NIEREN.
3350 [153]"DENN DIES IST IMMER NOCH EIN RESPEK-    TABLES ERGEBNIS.
3360 PRINT:PRINT"WENN SIE AUCH NICHT ZUR GEISTIGEN ELITE
3370 [153]"GEHOEREN, KOENNEN SIE SICH IN EINIGEN
3380 PRINT"PUNKTEN DENNOCH MIT MEINEM 'COMPUTER-   GEHIRN' MESSEN.":GOTO3530
3390 PRINT"DAMIT GEHOEREN SIE IN PUNKTO INTELLIGENZZU DEN OBEREN ZEHNTAUSEND.
3400 [153]
3410 [153]:[153]"ALS COMPUTER MUSS ICH SIE GANZ KLAR
3420 PRINT"UM IHREN VERSTAND BENEIDEN, DENN AUS    IHNEN WIRD MIT SICHERHEIT
3430 [153]"EIN GROSSER DICHTER UND DENKER.":[161]A$:[137]3530
3440 [153]"ALLE BEWUDERUNG.-":[153]
3450 [153]"ALS MENSCH SIND SIE AUSNEHMEND          INTELLIGENT.
3460 PRINT"(ODER SIND SIE VIELLEICHT EIN ANDERER   COMPUTER?)
3470 [153]:[153]"MIT IHREM VERSTAND GEHOEREN SIE EINDEU-
3480 PRINT"ZU DEN INTELLIGENTESTEN WESEN DIESES    PLANETEN.
3490 [153]"ALS COMPUTER KANN ICH  SIE DARUM NUR    BENEIDEN."
3500 [137]3530
3510 [161]A$:[139]A$[178]""[167]3510
3520 [142]
3530 [153]"***BITTE EINE TASTE DRUECKEN !WAIT***"
3540 [141]3510
3550 [153]"LOAD*** SOVIEL VORWEG.":[153]"DIE RICHTIGEN ANTWORTEN"
3560 [153]"UND EINE AUSFUEHLICHE AUSWERTUNG IHRER  LEISTUNG ERFAHREN SIE IN DEN
3570 PRINT"NAECHSTEN TEILPROGRAMMEN.
3580 [129]A[178]1[164]6000:[130]
3590 [143] AUFLOESUNG FRAGEN 01-13
3600 [141]5380
3610 [153]""[163]10)"A U F L O E S U N G":[153][163]10)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
3620 [153][163]8)"DER TESTFRAGEN 1 - 13 :":[153][163]8)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
3630 [153]"IM FOLGENDEN ERFAHREN SIE DIE"
3640 [153]"RICHTIGEN ANTWORTEN DER FRAGENDES INTELLIGENZTESTES."
3650 [153]"FALLS SIE DIES WUENSCHEN, DRUECKENSIE WIEDER EINE TASTE !
3660 GOSUB5360
3670 AL$="AUFLOESUNG DER FRAGE "
3680 R$="DIESE FRAGE LOESTEN SIE ABSOLUT RICHTIG.[146]"
3690 F$="LEIDER BEANTWORTETEN SIE DIESE FRAGE    FALSCH.[146]"
3700 PRINT"[147]"AL$"1 :"
3710 PRINT"[176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174]"
3720 PRINT"[221][213][178][201][213][178][201][221] [221][213][178][201][213][178][201][221] [221][205] /[205] /[221] [221][205] /[205] /[221]"
3730 PRINT"[221][171][219][179][171][219][179][221] [221][221][221][221][221][221][221][221][160][221] [219]  [219] [221] [221] [221]  [221] [221]"
3740 PRINT"[221][202][177][203][202][177][203][221][160][221][202][177][203][202][177][203][221][160][221]/ [205]/ [205][221] [221]/ [205]/ [205][221]"
3750 PRINT"[221][213][178][201][213][178][201][221][160][221][213][178][201][213][178][201][221] [221][205] /[205] /[221] [221][205] /[205] /[221]"
3760 PRINT"[221][171][219][179][171][219][179][221] [221][221][221][221][221][221][221][221] [221] [219]  [219] [221] [221] [221]  [221] [221]"
3770 PRINT"[221][202][177][203][202][177][203][221] [221][202][177][203][202][177][203][221] [221]/ [205]/ [205][221] [221]/ [205]/ [205][221]"
3780 PRINT"[173][192][192][192][192][192][192][189][160][173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192]^[192][192][192][189]"
3790 PRINT"                     [176][192][192][192][192][192][192][192][192][189]
3800 [153]"ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^CLOSEORTANTAN>TANTANTAN^ ORTANTANTANTANTANTAN^"
3810 [153]"(null)(null) /(null) /(null) (null)(null)TANRIGHT$(null)TANRIGHT$(null)CLOSE(null)      (null) (null)(null)=RIGHT$(null)=RIGHT$(null)"
3820 [153]"(null) TAN  TAN (null) (null)(null) (null)(null) (null)(null) (null)      (null) (null)-(null)<-(null)<(null)"
3830 [153]"(null)/ (null)/ (null)(null) (null)MID$TAN(null)MID$TAN(null)(null) (null)  >C< (null) (null)MID$>(null)MID$>(null)(null)"
3840 [153]"(null)(null) /(null) /(null) (null)(null)TANRIGHT$(null)TANRIGHT$(null) (null)      (null) (null)(null)=RIGHT$(null)=RIGHT$(null)"
3850 [153]"(null) TAN  TAN (null) (null)(null) (null)(null) (null)(null) (null)      (null) (null)-(null)<-(null)<(null)"
3860 [153]"(null)/ (null)/ (null)PEEK (null)MID$TAN(null)MID$TAN(null)(null) (null)      (null) (null)MID$>(null)MID$>(null)(null)"
3614 [153]"/TANTANTANTANTANTANEXPCLOSE/TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP"
3880 [153]"KAESTCHEN >C< EIGNET SICH AM BESTEN ZUR
3890 PRINT"VERVOLLSTAENDIGUNG DER OBEREN REIHE:"
3900 PRINT"DAS KREUZ IM 1.KAESTCHEN WIRD IM 2. VON EINER SENKRECHTEN ABGELOEST;
3910 [153]"ALSO MUSS DIES AUCH MIT DEM KREUZ ZWI-  SCHEN DEN DIAGONALEN GESCHEHEN.
3920 GOSUB5360
3930 PRINT"[147]":IFPEEK(826)=1THENPRINTR$:GOTO3950
3940 PRINTF$
3950 GOSUB5360
3960 PRINT"[147]"AL$"2 :"
3970 PRINT"ICH BIN EIN MANN."
3980 PRINT"WENN PETERS SOHN MEINES SOHNES VATER"
3990 PRINT"IST, WAS BIN ICH DANN FUER PETER?"
4000 PRINT"RICHTIGE ANTWORT:"
4010 PRINT">C<  SEIN SOHN
4020 [153]"ANMERKUNG: MEINES SOHNES VATER BIN ICH!"
4030 [153]"":[139][194](827)[178]1[167][153]R$:[137]4050
4040 [153]F$
4050 [141]5360:[153]"LOAD"AL$"3 :"
4060 [153]:[153]">A<  MESSER
4070 PRINT">B<  SCHWAN
4080 [153]">C<  GELAECHTER
4090 PRINT">D<  FELDER
4100 [153]">E<  HUEBSCH
4110 PRINT">F<  GEDANKE
4120 [153]"GEFRAGT WAR NACH DEM WORT, DAS NICHTWAIT IN DIESE GRUPPE PASST."
4130 [153]"DIESES WORT IST: 'HUEBSCH'"
4140 [153]"ALLE ANDEREN WOERTER SIND SUBSTANTIVE   (HAUPTWOERTER)!"
4150 [153]"":[139][194](828)[178]1[167][153]R$:[137]4170
4160 [153]F$
4170 [141]5360
4180 [153]"LOAD"AL$"4 :"
4190 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
4200 [153]"(null)  (null)(null)     (null)(null)   (null)(null)  (null)(null)  (null)WAIT       STEPWAIT  (null)"
4210 [153]"(null) (null)(null)(null)(null)   (null)(null)(null)(null)   (null)(null)(null)(null)   FN(null)TO   TOSQRTHEN  (null)"
4220 [153]"(null)STEPWAIT(null)  (null)(null) STEPWAIT(null)  (null)(null)WAIT   (null)(null)    (null)TOSQR   (null)TOSQR  (null)"
4230 [153]"(null)                                 (null)"
4240 [153]"(null) >A<    >B<    >C<    >D<   >E<  (null)"
4250 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
4260 [153]"DIE FIGUREN >D< UND >E< SIND SPIEGELBIL-DER VONEINANDER."
4270 [153]"":[139][194](829)[178]1[167][153]R$:[137]4290
4280 [153]F$
4290 [141]5360
4300 [153]"LOAD"AL$"5 :"
4310 [153][163]10)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
4320 [153][163]10)"(null) 9, 16, 25, 36, ...(null)"
4330 [153][163]10)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
4340 [153]"DIE ZAHLENREIHE WIRD KONSEQUENT WEITER- GEFUEHRT MIT DER ZAHL: 49"
4350 [153]"(ES SIND DIE QUADRATE DER ZAHLEN        3,4,5,6,7,..."
4360 [153]"DAS HEISST: DIE ZAHLEN WERDEN MIT SICH  SELBST MALGENOMMEN."
4370 [153]"":[139][194](830)[178]1[167][153]R$:[137]4390
4380 [153]F$
4390 [141]5360
4400 [153]"LOAD"AL$"6 :"
4410 [153]"SIE SOLLTEN DEN FOLGENDEN ANALOGIE-"
4420 [153]"SCHLUSS MIT EINEM AUS VIER BUCHSTABEN"
4430 [153]"BESTEHENDEN WORT ERGAENZEN, DAS MIT     'E' ENDET."
4440 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
4450 [153]"OBEN VERHAELT SICH ZU UNTEN             WIE HIMMEL ZU ERDEWAIT."
4460 [153]
4470 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4480 [139][194](831)[178]1[167][153]"SIE SCHRIEBEN DAS RICHTIGE WORT: ERDE.WAIT":[137]4500
4490 [153]"SIE SCHRIEBEN LEIDER NICHT: ERDE!WAIT"
4500 [141]5360
4510 [153]"LOAD"AL$"7 :"
4520 [153]"IN DEM KAESTCHEN UNTEN ERGIBT SICH NACH"
4530 [153]"ANALOGEN RECHENOPERATIONEN WAAGERECHT"
4540 [153]"UND SENKRECHT AUS ZWEI ZAHLEN EINER"
4550 [153]"REIHE DIE DRITTE."
4560 [153]"GESUCHT WAR DIE: 2"
4570 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
4580 [153]"(null)             (null)
4590 PRINT"[221] 6    2    4 [221]
4600 [153]"(null)     (null)TANRIGHT$     (null)
4610 PRINT"[221] 2   [221]2[221]   0 [221]
4620 [153]"(null)     MID$TAN(null)     (null)
4630 PRINT"[221] 4    0    4 [221]
4640 [153]"(null)             (null)
4650 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
4660 IFPEEK(832)=1THENPRINTR$:GOTO4680
4670 PRINTF$
4680 GOSUB5360
4690 PRINT"[147]"AL$"8 :"
4700 PRINT"DEN FOLGENDEN ANALOGIESCHLUSS MIT EINEM"
4710 PRINT"AUS FUENF BUCHSTABEN BESTEHENDEN WORT,"
4720 PRINT"DAS MIT 'T' ENDET, SOLLTEN SIE          ERGAENZEN:"
4730 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4740 PRINT"MOEGLICH VERHAELT SICH ZU WIRKLICH      WIE KUENFTIG ZU JETZT[146]."
4750 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
4760 IFPEEK(833)=1THENPRINTR$:GOTO4780
4770 PRINTF$
4780 GOSUB5360
4790 PRINT"[147]"AL$"9 :"
4800 PRINT"ZWEI WOERTER PASSEN NACH IHRER BEDEU-"
4810 PRINT"TUNG NICHT IN DIE FOLGENDE GRUPPE:"
4820 PRINT">A<  LEIM"
4830 PRINT">B<  SIEB
4840 [153]">C<  KREISSAEGE"
4850 [153]">D<  NAGEL
4860 PRINT">E<  BINDFADEN
4870 [153]">F<  BUEROKLAMMER
4880 PRINT"AUSSER DEM SIEB UND DER KREISSAEGE"
4890 PRINT"KOENNEN ALLE GEGENSTAENDE ETWAS         ZUSAMMENHALTEN."
4900 IFPEEK(834)=1THENPRINTR$:GOTO4920
4910 PRINTF$
4920 GOSUB5360:PRINT"[147]"AL$"10:"
4930 PRINT"BERG VERHAELT SICH ZU LAND"
4940 PRINT"WIE STRUDEL ZU:
4950 [153]">C< MEER"
4960 [139][194](835)[178]1[167][153]"SIE FOLGERTEN RICHTIG: MEER!WAIT":[137]4980
4970 [153]"SIE DACHTEN FAELSCHLICHERWEISE AN EIN   ANDERES WORT!WAIT"
4980 [141]5360:[153]"LOAD"AL$"11:"
4990 [153]"RICHTIG ERGAENZT LAUTET DIE FOLGENDE    ZAHLENREIHE:"
5000 [153][163]10)"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
5010 [153][163]10)"(null) 2, 3, 5, 9, 17,33WAIT   (null)"
5020 [153][163]10)"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
5030 [153]"DER ABSTAND ZWISCHEN DEN ZAHLEN FOLGT   DEN ZWEIERPOTENZEN."
5040 [153]"DAS HEISST: DIE DIFFERENZ VERDOPPELT    SICH JEWEILS."
5050 [139][194](836)[178]1[167][153]"SIE ERKANNTEN DIESEN ZUSAMMENHANG!WAIT":[137]5070
5060 [153]"SIE VERMUTETEN EINEN ANDEREN ZUSAMMEN-  HANG!WAIT"
5070 [141]5360:[153]"LOAD"AL$"12:"
5080 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
5090 [153]"(null)    STEPWAIT      WAIT      STEPWAIT    WAIT    (null)"
5100 [153]"(null)   STEP WAIT    STEP LOGWAIT    STEP WAIT  COS (null)WAIT   (null)"
5110 [153]"(null)  STEP  WAIT   FRE   WAIT   STEP  WAIT     FREWAIT  (null)"
5120 [153]"(null) STEP   WAIT  STEP    WAIT  STEP   WAIT      (null)WAIT (null)"
5130 [153]"(null)  >A<   >B<   >C<   >D<   (null)"
5140 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
5150 [153]"NATUERLICH SIND DIE FIGUREN >B< UND >D< SPIEGELBILDER VONEINANDER."
5160 [139][194](837)[178]1[167][153]R$:[137]5180
5170 [153]F$
5180 [141]5360:[153]"LOAD"AL$"13:"
5190 [153]"DIE STATISTIK ZEIGT, DASS AUTOFAHRER"
5200 [153]"MAENNLICHEN GESCHLECHTS HAEUFIGER IN"
5210 [153]"VERKEHRSUNFAELLE VERWICKELT SIND ALS"
5220 [153]"FRAUEN."
5230 [153]"DARAUS KANN MAN MIT SICHERHEIT NUR      SCHLIESSEN...
5240 PRINT">E< ...DASS MAN GENAUERE ANGABEN"
5250 PRINT"       FUER EINE KLARE SCHLUSSFOLGERUNG        BENOETIGT.":
5260 PRINT"M E H R   N I C H T!"
5270 PRINT"===================="
5280 IFPEEK(838)=1THENPRINT"ABER DAS HABEN SIE JA RICHTIG ERKANNT![146]":GOTO5320
5290 PRINT"DIES HATTEN SIE SICH NICHT GENAU        UEBERLEGT.%"
5300 PRINT"ODER FUEHLTEN SIE SICH IN AHRER MAENN-  LICHEN EHRE VERLETZT"
5310 PRINT"ODER VIELLEICHT IN IHRER WEIBLICHEN EHREZU SEHR GESCHMEICHELT ?[146]"
5320 GOSUB5360:GOSUB5380
5330 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
5340 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
5350 GOSUB5360:GOTO5410
5360 GETA$:IFA$=""THEN5360
5370 GETA$:RETURN
5380 PRINT"[147]":FORI=1TO39:PRINT"#";:NEXT:FORI=1TO22:PRINT"[157]#";:NEXT
5390 FORI=1TO38:PRINT"[157]#[157]";:NEXT:PRINT"#"
5400 FORI=1TO23:PRINT"[145]#[157]";:NEXT:RETURN
5410 REM AUFLOESUNG FRAGEN 14-20
5420 PRINT"[147]"
5430 FORI=1TO23:PRINT"[214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]":NEXT
5450 PRINT""TAB(9)" A U F L O E S U N G "
5460 PRINTTAB(6)"DER FRAGEN 14-20 DES TESTS:"
5470 PRINT"BITTE DRUECKEN SIE WIEDER EINE TASTE[146]"
5480 AL$="AUFLOESUNG DER FRAGE "
5490 R$="GRATULIERE.- SIE HABEN DIES RICHTIG     ERKANNT![146]"
5500 F$="TUT MIR LEID.- HIER IRRTEN SIE![146]"
5510 GOSUB6720
5520 PRINT"[147]"AL$"14:"
5530 PRINT"IN DEM KAESTCHEN UNTEN ERGIBT SICH NACH"
5540 PRINT"ANALOGEN RECHENOPERATIONEN WAAGERECHT"
5550 PRINT"UND SENKRECHT IMMER AUS ZWEI ZAHLEN"
5560 PRINT"EINER REIHE DIE DRITTE."
5570 PRINT"ES FEHLT DIE ZAHL: 240"
5580 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
5590 PRINT"[221] 6 * 2 = 12 [221]"
5600 PRINT"[221] *   *   *  [221][146][160][160]RECHENOPERATION:"
5610 PRINT"[221] 4 * 5 = 20 [221][146]  MULTIPLIKATION"
5620 PRINT"[221] =  ==   =  [221][146]  DER ZAHLEN !"
5630 PRINT"[221]24 *10 = [146]240[221]"
5640 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
5650 IFPEEK(841)=1THENPRINTR$:GOTO5670
5660 PRINTF$
5670 GOSUB6720:PRINT"[147]"AL$"15:"
5680 PRINT"ES GILT FOLGENDES:
5690 [153][163]10)"A MAL B = 24
5700 PRINTTAB(10)"C MAL D = 32
5710 [153][163]10)"B MAL D = 48
5720 PRINTTAB(10)"B MAL C = 24
5730 [153]"DAS ERGEBNIS AUS
5740 PRINTTAB(10)"A MAL B MAL C MAL D"
5750 PRINTTAB(10)"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
5760 PRINT"IST DANN GANZ EINFACH A * B (ALSO:24)   MAL C * D (32)."
5770 PRINT"DIE LOESUNG IST DEMNACH 24 * 32 = 768."
5780 PRINT"DIE ANGABEN B*D=48 UND B*C=24 DIENTEN   NUR DER IRREFUEHRUNG!"
5790 PRINT"RICHTIGER LOESUNGSBUCHSTABE: >D<"
5800 IFPEEK(842)=1THENPRINT"SIE SIND EIN GEBORENER MATHEMATIKER![146]":GOTO5820
5810 PRINT"TROESTEN SIE SICH.- DIES WAR AUCH NICHT LEICHT![146]"
5820 GOSUB6720:PRINT"[147]"AL$"16:"
5830 PRINT"[176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][174]
5840 [153]"(null)      (null) (null)  STEP(null)WAIT  (null) (null)      (null) (null)  STEP(null)WAIT  (null)
5850 PRINT"[221]      [221] [221] [169]  [223][146] [221] [221] [213][192][192][201] [221] [221] [169]  [223][146] [221]
5860 [153]"(null)  (null)RIGHT$  (null) (null)      (null) (null) (null)  (null) (null) (null)      (null)
5870 PRINT"[221]  [202][203]  [221] [221]  [213][201]  [221] [221] [202][192][192][203] [221] [221] [213][192][192][201] [221]
5880 [153]"(null)      (null) (null)  MID$(null)  (null) (null)      (null) (null) (null)  (null) (null)
5890 PRINT"[221]  [169][223][146]  [221] [221]      [221] [221]  [169][223][146]  [221] [221] [202][192][192][203] [221]
5900 [153]"(null) STEP  (null)WAIT (null) (null)      (null)(null) STEP  (null)WAIT (null) (null)      (null) >D<
5910 PRINT"[173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][189] ...
5920 [153]"ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^ ORTANTANTANTANTANTAN^
5930 PRINT"[221]  [169][223][146]  [221] [221] [213][192][192][201] [221] [221]  [169][223][146]  [221] [221][213][192][192][192][192][201][221]
5940 [153]"(null) STEP  (null)WAIT (null) (null) (null)  (null) (null) (null) STEP  (null)WAIT (null) (null)(null)    (null)(null)
5950 PRINT"[221]      [221] [221] [202][192][192][203] [221] [221][213][192][192][192][192][201][221] [221][221]    [221][221]
5960 [153]"(null)      (null) (null)      (null) (null)(null)    (null)(null) (null)(null)    (null)(null)
5970 PRINT"[221] [213][192][192][201] [221] [221]      [221] [221][221]    [221][221] [221][202][192][192][192][192][203][221]
5980 [153]"(null) (null)  (null) (null) (null)  STEP(null)WAIT  (null) (null)(null)    (null)(null) (null)  STEP(null)WAIT  (null)
5990 PRINT"[221] [202][192][192][203] [221] [221] [169]  [223][146] [221] [221][202][192][192][192][192][203][221] [221] [169]  [223][146] [221]
6000 [153]"/TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP /TANTANTANTANTANTANEXP
6010 PRINT"  >A<      >B<      >C<      >D<"
6020 PRINT"DAS DREIECK WECHSELT IMMER DIE POSI-"
6030 PRINT"TION, WAEHREND DAS UMSCHLOSSENE FELD    GROESSER WIRD.":GOSUB6720
6040 PRINT"[147]":IFPEEK(843)=1THENPRINTR$:GOTO6060
6050 PRINTF$
6060 GOSUB6720:PRINT"[147]"AL$"17:"
6070 PRINT"DAS WORT TELEGRAPH[146] PASST NICHT IN       DIESE GRUPPE!"
6080 PRINT">A<  MIKROSKOP
6090 [153]">B<  LUPE
6100 PRINT">C<  MIKROPHON
6110 [153]">D<  FERNROHR
6120 PRINT">E<  TELEGRAPH
6130 [153]"ALLE GEGENSTAENDE SIND IN DER LAGE,
6140 PRINT"ETWAS ZU VERGROESSERN ODER ZU VER-      STAERKEN (MIKROPHON);"
6150 PRINT"DER TELEGRAPH BILDET HIER EINE AUSNAHME.
6160 [139][194](844)[178]1[167][153]R$:[137]6180
6170 [153]F$
6180 [141]6720:[153]"LOAD"AL$"18:"
6190 [153]"DIE BEIDEN WOERTER SCHIMMER UND GLANZ
6200 PRINT"SIND IN IHRER BEDEUTUNG AEHNLICH."
6210 PRINT">A<  SCHIMMER
6220 [153]">B<  BROCKEN
6230 PRINT">C<  GEKICHER
6240 [153]">D<  GLANZ
6250 PRINT">E<  SAMMLUNG"
6260 IFPEEK(845)=1THENPRINT"SIE WUSSTEN DIES![146]":GOTO6280
6270 PRINTF$
6280 GOSUB6720:PRINT"[147]"AL$"19:"
6290 PRINT"WENN FRITZ AN DER KREUZUNG NACH RECHTS"
6300 PRINT"ODER LINKS ABBIEGT, WIRD IHM VOR ER-"
6310 PRINT"REICHEN EINER TANKSTELLE DAS BENZIN"
6320 PRINT"AUSGEHEN.
6330 [153]"AUCH WENN ER UMDREHT, ERREICHT ER MIT
6340 PRINT"SEINEM TREIBSTOFFVORRAT KEINE TANKSTEL-
6350 [153]"LE MEHR; NOCH KANN ER GERADEAUS EINE    SEHEN.":[153]
6360 [153]"NUR DIE BEHAUPTUNG >A< LAESST SICH AUS
6370 PRINT"DIESER SACHLAGE EINWANDFREI ABLEITEN:"
6380 PRINT">A<  KANN SEIN, DASS IHM DAS BENZIN          AUSGEHT.":PRINT
6390 PRINT"ALLES ANDERE IST SPEKULATION![146]"
6400 IFPEEK(846)=1THENPRINT"SIE HABEN DIESE FRAGE KLAR BEANTWORTET![146]":GOTO6430
6410 PRINT"SIE HABEN DIESE FRAGE KLAR UND SELBST-"
6420 PRINT"BEWUSST - ABER LEIDER FALSCH - BEANT-   WORTET.[146]"
6430 GOSUB6720:PRINT"[147]"AL$"20:"
6440 PRINT"ALS LETZTES SOLLTEN SIE NOCH DEN FOL-"
6450 PRINT"GENDEN ANALOGIESCHLUSS ERKENNEN:"
6460 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
6470 [153]"(null)(null)TANTANTANRIGHT$ (null)TANTANTANRIGHT$ (null)TANTANTANRIGHT$          OR^ STEP(null)WAIT     (null)
6480 PRINT"[221][221][215] [215][221] [221][215] [215][221] [221][215] [215][221] VERHAELT [221][221] [221][221] [169][146][198][198][223][146][221]"
6490 PRINT"[221][221] [209] [221] [221] [209] [221] [221] [209] [221]   SICH   [221][221] [221][221] [223][196][196][169][221]
6500 [153]"(null)(null)MID$TAN(null)(null) (null)(null)TANRIGHT$(null) (null) TAN (null)    ZU    (null)STEP /EXP     (null)"
6510 [153]"(null)MID$TANTANTAN(null) MID$TANTANTAN(null) MID$TANTANTAN(null)"[163]38)"(null)"
6520 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
6530 PRINT:PRINT"WIE + - 0 ZU - + 0[146] !"
6540 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
6550 PRINT"LOESUNGSBUCHSTABE: >C<"
6560 IFPEEK(847)=1THEN6630
6570 PRINT"SIE HABEN LEIDER NICHT ERKANNT, DASS
6580 [153]"DIE 'GESICHTER' DEN ZUSTAEDEN:
6590 PRINT"POSITIV(+[146]),NEGATIV(-[146])UND NEUTRAL(0[146])"
6600 PRINT"ZUGEORDNET WERDEN KOENNEN UND ANALOG    DAZU DIE PFEILE
6610 [153]"NEGATIV(-WAIT), POSITIV(+WAIT)UND NEUTRAL(0WAIT) DARSTELLEN."
6620 [137]6660
6630 [153]"SIE HABEN SOWOHL DIE BEDEUTUNG DER   "
6640 [153]"SYMBOLE, ALS AUCH DIE ANALOGIE VOLL  "
6650 [153]"UND KLAR VERSTANDEN.-  ALLE ACHTUNG! "
6660 [141]6720
6670 [153]"LOAD":[129]I[178]1[164]39:[153]"(null)";:[130]:[129]I[178]1[164]22:[153]"CMD(null)";:[130]
6680 [129]I[178]1[164]39:[153]"CMD(null)CMD";:[130]:[129]I[178]1[164]22:[153]"ON(null)CMD";:[130]
6690 [153]"WAITSIE KENNEN NUN DIE RICHTIGEN ANT-"
6700 [153]"WORTEN UND IHRE FEHLER."
6710 [141]6720:[137]6740
6720 [161]A$:[139]A$[178]""[167]6720
6730 [142]
6740 [143] ANALYSE
6750 [153]"LOADP E R S O E N L I C H E   A N A L Y S E
6760 PRINT"I H R E R   I N T E L L I G E N Z
6770 [153]"========================================"
6780 [153]"*** BITTE WIEDER EINE TASTE DRUECKEN ***"
6790 [141]7990
6800 [153]"LOADDIE 20 FRAGEN DES INTELLIGENZTESTES
6810 PRINT"SIND FOLGENDEN UNTERSUCHUNGSKRITERIEN   ZUGEORDNET:
6820 [153]"(MEISTENS SOGAR MEHREREN)
6830 PRINT"1.  ERKENNEN VON ANALOGIEN
6840 [153]"2.  ERKENNEN DER AUSSAGELOGIK
6850 PRINT"3.  MATHEMATISCHES VERSTAENDNIS
6860 [153]"4.  GRAPH. VORSTELLUNGSVERMOEGEN
6870 PRINT"5.  WORTSCHATZ UND WORTBEDEUTUNG
6880 [153]"FERNER WURDE DIE BENOETIGTE ZEIT        BERUECKSICHTIGT.
6890 GOSUB7990
6900 PRINT"[147]SIE ERFAHREN NUN NACHEINANDER DIE
6910 [153]"EINZELNEN TESTERGEBNISSE.
6920 PRINT"ABSCHLIESSEND ERHALTEN SIE EINE
6930 [153]"UMFASSENDE GRAPHISCHE DARSTELLUNG.
6940 GOSUB7990
6950 PRINT"[147]ZUNAECHST ZUR BENOETIGTEN ZEIT:"
6960 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
6970 [153]"FUER DEN GESAMTEN TEST BRAUCHTEN SIE:
6980 T=PEEK(840)
6990 PRINTT" MINUTEN.
7000 [153]"DIES ERGIBT EINE MITTLERE BEANTWORTUNGS-ZEIT FUER EINE FRAGE VON:
7010 DT=INT(T/2)/10
7020 PRINTDT" MINUTEN."
7030 IFDT>=1THEN7070
7040 IFDT<1ANDDT>.8THEN7060
7050 PRINT"SIE BEANTWORTETEN DIE FRAGEN UEBERDURCH-SCHNITTLICH SCHNELL.":GOTO7100
7060 PRINT"DIES ENTSPRICHT DEM DURCHSCHNITT.":GOTO7100
7070 PRINT"SIE ANTWORTETEN SEHR VORSICHTIG, WAS
7080 [153]"ZU EINER UNTERDURCHSCHNITTLICHEN ANT-   WORTZEIT FUEHRTE.
7090 IFT>=40THENT=-10:GOTO7130
7100 T=INT(-T/2+10)
7110 IFT>0THENT=INT(T/7.3*10)
7120 IFT>10THENT=10
7130 GOSUB7990
7140 PRINT"[147]1. ERKENNEN VON ANALOGIEN :"
7150 PRINT"===========================
7160 AN[178][194](826)[170][194](828)[170][194](830)[170][194](831)[170][194](832)[170][194](833)[170][194](834)
7170 AN[178]AN[170][194](835)[170][194](836)[170][194](841)[170][194](843)[170][194](847)
7180 [153]"VON 12 FRAGEN, DIE DAS ERKENNEN VON
7190 PRINT"ANALOGEN ZUSAMMENHAENGEN FORDERN,
7200 [153]"BEANTWORTETEN SIE"AN" RICHTIG."
7210 [153]"DAS ENTSPRICHT EINEM PROZENTUALEN WERT
7220 AN=INT(AN/12*100)
7230 PRINT"VON"AN" %."
7240 AN=INT(-10+(AN/5))
7250 GOSUB7990
7260 PRINT"[147]2. ERFASSEN DER AUSSAGELOGIK :
7270 [153]"==============================
7280 AL=4*PEEK(827)
7290 AL=AL+PEEK(831)+PEEK(833)+(2*PEEK(838))
7300 AL=AL+(2*PEEK(846))
7310 PRINT"BEI VERSCHIEDENER GEWICHTUNG EINZELNER
7320 [153]"FRAGEN ERREICHEN SIE HIER DEN PROZEN-
7330 AL=AL*10
7340 PRINT"TUALEN WERT: "AL" %."
7350 AL=INT(-10+(AL/5))
7360 GOSUB7990
7370 PRINT"3. MATHEMATISCHES VERSTAENDNIS :
7380 [153]"================================
7390 M=PEEK(830)+PEEK(832)+PEEK(836)+PEEK(841)+PEEK(842)
7400 M=M*20
7410 PRINT"HIER MUSS MAN IHNEN EINEN INTELLIGENZ-
7420 [153]"WERT VON"M" % ZUGESTEHEN.
7430 M=INT(-10+(M/5))
7440 GOSUB7990
7450 PRINT"[147]4. GRAPHISCHES VORSTELLUNGSVERMOEGEN :
7460 [153]"======================================
7470 G=PEEK(826)+PEEK(829)+PEEK(837)+PEEK(842)+PEEK(847)
7480 G=G*20
7490 PRINT"IHR GRAPHISCHES ERFASSEN,
7500 [153]"DAS AUCH RUECKSCHLUESSE AUF IHR RAEUM-
7510 PRINT"LICHES VORSTELLUNGSVERMOEGEN UND IHRE
7520 [153]"PHANTASIE ALLGEMEIN ZULAESST, IST MIT
7530 PRINTG" % EINZUSTUFEN."
7540 G=INT(-10+(G/5))
7550 GOSUB7990
7560 PRINT"[147]5. WORTSCHATZ :"
7570 PRINT"===============
7580 [153]"EINIGE FRAGEN WURDEN SO GESTELLT,
7590 PRINT"DASS SIE RUECKSCHLUESSE AUF IHREN WORT-
7600 [153]"SCHATZ ZULASSEN; ABER AUCH GANZ BESON-"
7610 [153]"DERS AUF IHRE FAEHIGKEITEN BEI DER ER-
7620 PRINT"KENNUNG VON WORTINTENTION (BEDEUTUNG)
7630 [153]"UND SYNONYMA (WOERTER GLEICHER BEDEU-
7640 PRINT"TUNG).
7650 [153]"HIER BETRAGEN IHRE FAEHIGKEITEN :"
7660 W[178][194](831)[170][194](833)[170][194](844)[170][194](845)
7670 W[178]W[172]2
7680 W[178]W[170][194](828)[170][194](835)
7690 W[178]W[172]10
7700 [153]W" %."
7710 [153]"TANTANTANTANTANTAN"
7720 W[178][181]([171]10[170](W[173]5))
7730 [141]7990
7740 [153]"LOADGESAMTAUFSCHLUESSELUNG IHRER INTELLIGENZWAIT
7750 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][145][145]
7760 [153]"DURCHSCHNITT"
7770 Y[178]10:C$[178]"<":D$[178]"=":[153][163]16):[141]8010
7780 Y[178][171]10:D$[178]">":[153]"CMD";:[141]8010
7790 Y[178]T:C$[178]" CONTWAIT":D$[178]"T":[153]"";:[141]8010
7800 Y[178]AN:C$[178]"STOP WAITCONT":D$[178]"1":[153]"";:[141]8010
7810 Y[178]AL:C$[178]" WAITCONT":D$[178]"2":[153]"";:[141]8010
7820 Y[178]M:C$[178]"FOR WAITCONT":D$[178]"3":[153]"";:[141]8010
7830 Y[178]G:C$[178]"PRINT# WAITCONT":D$[178]"4":[153]"";:[141]8010
7840 Y[178]W:C$[178]"CLR WAITCONT":D$[178]"5":[153]"";:[141]8010
7850 [153]"FOR WAIT
7860 PRINT" [146]
7870 [153]"     WAIT
7880 PRINT" [146]
7890 [153]" WAIT
7900 PRINT"[144]     [146]
7910 [153]"CONTRELATIVE WERTE:  "T;AN;AL;M;G;W;
7920 [153]""[163]18)"ZCMDECMDICMDT
7930 PRINT""TAB(22)"A[157]N[157]A[157]L[157]O[157]G[157]I[157]E
7940 [153]""[163]25)"LCMDOCMDGCMDICMDK
7950 PRINT""TAB(28)"M[157]A[157]T[157]H[157]E[157].
7960 [153]""[163]31)"GCMDRCMDACMDPCMDHCMD.
7970 PRINT""TAB(34)"W[157]O[157]R[157]T[157]S[157]C[157]H[157].";
7980 GETA$:IFA$=""THEN7980
7981 PRINT"[147]":END
7990 GETA$:IFA$=""THEN7990
8000 RETURN
8010 IFY>0THEN8050
8020 IFY<0THEN8090
8030 PRINTD$;
8040 RETURN
8050 FORI=1TOY:PRINTC$"[145][157]";:NEXT
8060 PRINTD$;
8070 FORI=1TOY:PRINT"";:NEXT
8080 RETURN
8090 Y=ABS(Y):FORI=1TOY:PRINTC$"[157]";:NEXT
8100 PRINTD$;
8110 FORI=1TOY:PRINT"[145]";:NEXT
8120 RETURN